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Fig. 4 



Negotiate initial minimum credit allocation called the Credit Limit 
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While (forever) { 
^ Wait for a new request, completion or credit message 

If (new request) { 

If (Current Used Credits < Credit Limit) { 
Update Current Used Credits by +1 
Insert number of pending l/O's into the current request 
Send new request to the server 

} else { 

Queue new request to the pending queue 

} else if (completion) { 
Complete I/O 

If (uses posted receives) { 
Repost receive 

} 

If (request pending) { 

Remove request from pending queue and send to the sever. 

} else { 

Update Current Used Credits by -1 

} 

} else /* credit message */ { 

if (plus N credit message) { 

if (uses posted receives) { 
Repost receive 

} 

Dequeue and send N pending messages with 

one marked as a credit ack 
Update Current Used Credits by the actual number sent 
Update Credit Limit by N 
} else if (minus N credit message) { 
if (uses posted receives) { 
Repost Receive 

} 

Update Credit Limit by -N 
If (flushing posted receives) { 

Send N credit messages to the sever up to Credit Limit 
Queue unsent credits messages to the pending queue 

} if (uses posted receives) { 
Fr e p sted receive 

} 

} 
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f* i is the index for a particular client instance. */ 
t* i j is the index for file j on client instance i */ 
While (forever) { 

Wait for new client connection or 
new client I/O request or 
credit timer expires or 
credit message 
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if (new connection) { 

Process Connection Request 

Negotiate minimum credits for the connection 

Accept connection if credits available otherwise reject 

Set Credit Timer if connection accepted. 
} else If (new client I/O request) { 

/* CP = Client hint on number Pending requests to be sent */ 

If (CP of new request > CPi) then { 
Store CP in CPi 

Set Credit Timer if not already set 

} 

Dispatch client I/O request 
} else if (credit message) { 

Acknowledge credit message 

If all credits acknowledge then mark connection as acknowledged 
> else if (credit timer expired) { 
Compute; { 

Total Client Connections (TC) = "V .1 

Total Files open (TF) = V 1 

Total pending requests (TR) = ^ CP i 

t* CUi is the number of credits in use on connection i */ 

Total credits used (TU) = V CU 
j L-Ji 1 

for each client connection i { 

if (connection i waiting for ack) { 

do nothing or disconnect if wait time expired 

} else{ 

if «TU + TR) > MC) { 

if (be fair to files) { 

NCL, = MC * CFj/TF 
} else /* be fair to connections */ { 
NCL = MC/TC 

} 

} else { 

NCL, = infinite; 

> 

Adjust NCL, to meet minimum negotiated 

if (CL,>NCL,) then{ 

Send minus delta credit message of NC, - NCL, 
} else if (((CL, * Completion Factor) - CU,) > 0) then { 

Send minus delta credit message of CL, - CU, 
}else if (CP, > 0) { 

Send positive delta credit message of 
min(CP, f NCL, - NC,, MC - TU) 
increase TU by N and reduce TR by N 

} 



